perm filename PREAMB.SAI[SYS,HE]1 blob sn#004221 filedate 1972-10-02 generic text, type T, neo UTF8
REQUIRE  33 VERSION;
Global Itemvar Array TABLE[0:11,0:19];
Global Item    ON,HEIGHT,BLOB,HIDDEN;
Global Boolean    TAB_INIT;
Global set     BLOBS;
Global Item XFORM,INSIDE_EDGES,BOUNDARY;
Global Item SCENE,BACKGROUND,REGION,CORNER,ENDPT,PERIMETER;
Global Item VERTEX,BODY,LINE,POINT,EDGE;
GLOBAL ITEM BASE,ATR,OCCLUDER,ABOVE,PARENT,SON,FLAVOR;
GLOBAL ITEM TJOINT,BADT,MULTI,KJOINT,GOODX,BADX,ARROW,BADARO,GOODY,BADY;
GLOBAL ITEM GOODL,BADL;
GLOBAL SET PROTOTYPES;
Global Item	INVERSE,CONCAVE,SHAPE,INSTANCE,COLOR,SIZEOBJ,LEFT,RIGHT,SUPPORTER;
Global Integer Item BLUE,GREEN,RED,WHITE,ORANGE,YELLOW,NORMAL,VISIBLE;
GLOBAL ITEM EDGES,CENTER,FACE;
GLOBAL ITEM PROTOTYPE;
Global Item RPP114,RPP112,RPP122,RPP124,WEDGE122,WEDGE124,RHOMBOID,LBEAM,CUBE;
Global Integer GOT_MODELS;
Global Real Array CAMERA_MODEL,CAMERA_PREDI[1:10,1:3];
GLOBAL INTEGER CAMFLG,CAMLENS;
GLOBAL REAL CAMPAN,CAMTIL,CAMRANG;
Global Real Array Itemvar CURCAM;
GLOBAL REAL ARRAY A_REC,AI_REC[1:3,1:3],LENS_REC[1:3];
Global Real PANPOT,TILPOT,FOCPOT;
GLOBAL INTEGER EYEFLG;
GLOBAL REAL ARRAY DIR_EYE[0:10,1:8];
GLOBAL INTEGER ARRAY LOOK_AT[1:8];
GLOBAL INTEGER FOCFLG;
GLOBAL REAL FOCRANG,FOCDELF;
Global Integer DEB_EDGE,DIS_EDGE,YES_EDGE,TYP_EDGE;
GLOBAL INTEGER DEB_CUR,DIS_CUR,YES_CUR,TYP_CUR;
Global Integer DEB_SIMP,DIS_SIMP,YES_SIMP,TYP_SIMP;
Global Integer DEB_CAM,DIS_CAM,YES_CAM,TYP_CAM;
Global Integer DEB_VER,DIS_VER,YES_VER,TYP_VER;
Global Integer DEB_COL,DIS_COL,YES_COL,TYP_COL;
Global Integer DEB_II,DIS_II,YES_II,TYP_II;
GLOBAL INTEGER DEB_GUN,DIS_GUN,YES_GUN,TYP_GUN;
GLOBAL INTEGER DEB_EYE,DIS_EYE,YES_EYE,TYP_EYE;
GLOBAL INTEGER DEB_HAND,DIS_HAND,YES_HAND,TYP_HAND;
GLOBAL INTEGER DEB_MOVE,DIS_MOVE,YES_MOVE,TYP_MOVE;
Global Integer DEB_SEG,DIS_SEG,YES_SEG,TYP_SEG;
Global Integer DEB_REC,DIS_REC,YES_REC,TYP_REC;
Global Integer DEB_PRED,DIS_PRED,YES_PRED,TYP_PRED;
Global Integer DEB_FOC,DIS_FOC,YES_FOC,TYP_FOC;
Define mp="Forward Message Procedure";
Define smp="Forward Simple Message Procedure";
global integer RUN;
EXTERNAL BOOLEAN TRACING;
GLOBAL ITEM NIL, EVERY;
GLOBAL INTEGER ARRAY GDISP[0:14];
GLOBAL INTEGER GDISP_INIT;
smp MON_COM(string command);
GLOBAL INTEGER DISDEV;
mp GETDATA ( ITEMVAR arg; reference boolean flag);
smp DISK ( string name; reference boolean flag);
smp TV;
smp XEQ ( string command; reference boolean flag);
smp DEBUG ( string name; string val; reference boolean flag);
smp RESTART_KKP;
smp SETVAL ( string name; integer val; reference boolean flag);
mp FIND ( ITEMVAR arg );
mp RELOOK ( ITEMVAR arg; INTEGER x, y );
mp FIT ( ITEMVAR arg );
mp INSIDE ( ITEMVAR arg );
mp COMPACT ( ITEMVAR arg );
mp INSCAN(integer a,b,c,d;REFERENCE INTEGER Z);
mp REJECT ( ITEMVAR arg );
MP FINE(ITEMVAR ARG);
mp GUNTRACE ( set blobs; integer file);
mp RESPONSE ( string name; integer arg; integer status );
mp DATA ( integer file;reference integer fname);
MP SEND_DATA ( INTEGER COUNT; REAL ARRAY DAT);
mp EDGE_DATA ( integer size; real array arrx );
MP CURVE_FIT(REAL ARRAY DATA);
mp VERIFY(INTEGER X1, Y1, X2, Y2; REFERENCE REAL CONF);
GLOBAL REAL CONFID;
SIMPLE mp CAM_UPDATE;
SIMPLE mp CAM_INIT ;
SIMPLE mp CHNG_LENS(INTEGER LENS);
SIMPLE mp MOVE_CAM(REAL PAN,TILT);
SIMPLE mp CHNG_FOCUS(REAL RANGE);
SIMPLE mp CAM_CENTER(INTEGER LENS; REAL X,Y,Z);
SIMPLE mp CAM_PRED(INTEGER LENS; REAL X,Y,Z);
mp SIMP_FIT ( item blob ;reference integer status; reference real array itemvar x);
mp SIMP_UPDATE ( real array itemvar obj; real array trans; reference integer stat);
FORWARD MESSAGE PROCEDURE ANALYZE(ITEMVAR SCENE);
FORWARD MESSAGE PROCEDURE PREDICT;
FORWARD MESSAGE PROCEDURE SEGMENT;
FORWARD MESSAGE PROCEDURE
	CHECK (ITEMVAR SCENE);
mp CLR_GET ( INTEGER N; REAL ARRAY POINTS);
mp CLR_RESPONSE ( INTEGER ITEMVAR ARRAY GJ);
SIMPLE mp SRCH_IMAGE(INTEGER BKGR,INT,SEARCH; REAL TOLER; REAL ARRAY DIRD);
SIMPLE mp SET_WINDOW;
mp AUTOFOC(REAL EST_RANG,RANGINVAL; INTEGER NCUT);
DEFINE TSX="1.0017",TSY="1.0028";
GLOBAL INTERNAL INTEGER ARM_MOTION,ARM_STATUS,ARM_SEGMENT,ARM_WAIT,ARM_TIME,ARM_EXECUTE;
GLOBAL INTERNAL BOOLEAN STOP_ON_TOUCH;
FORWARD MESSAGE SIMPLE PROCEDURE SET_TOUCH(BOOLEAN STOP_ON_TOUCH);
GLOBAL INTERNAL INTEGER ARRAY FELT[1:2,1:4,1:4];
GLOBAL REAL ARRAY ARM_LINK[3:6,1:4,1:4];
GLOBAL REAL GRASP;
GLOBAL REAL ARRAY DEPART_ARM,ARRIVE_ARM[1:4];
GLOBAL INTEGER T1_ARM,T2_ARM;
FORWARD MESSAGE SIMPLE PROCEDURE ARM_CONO(REAL ARRAY ARRIVE,DEPART;INTEGER ARRIVE_TIME,DEPART_TIME);
GLOBAL REAL F1_ARM,F2_ARM;
FORWARD MESSAGE SIMPLE PROCEDURE START_TRAJECTORY(STRING FILE;BOOLEAN START_FROM_LAST);
FORWARD MESSAGE SIMPLE PROCEDURE MOVE_ARM(REAL ARRAY JOINT6; REFERENCE INTEGER FLAG);
FORWARD MESSAGE PROCEDURE MOVE_INSTANCE
(REAL ARRAY ITEMVAR INSTANCE;REAL ARRAY NEW_TRANSFORM,INTERMEDIATE_POSITION;
	REFERENCE INTEGER PLAN);
FORWARD MESSAGE SIMPLE PROCEDURE PARK_ARM;
FORWARD MESSAGE SIMPLE PROCEDURE OPEN_HAND(REAL OPENING);
FORWARD MESSAGE SIMPLE PROCEDURE CLOSE_HAND(REAL MINIMUN_DISTANCE);
FORWARD MESSAGE SIMPLE PROCEDURE PLACE_ARM;
FORWARD MESSAGE SIMPLE PROCEDURE CHANGE_ARM(REAL ARRAY DX_DY_DZ;REAL DIST;
	REAL ARRAY AXIS;REAL DEG;INTEGER TIME;REFERENCE INTEGER FLAG);
FORWARD MESSAGE SIMPLE PROCEDURE WAIT_ARM;
FORWARD MESSAGE SIMPLE PROCEDURE CLOSE_TRAJECTORY;
FORWARD MESSAGE SIMPLE PROCEDURE DO_IT(STRING FILE);
FORWARD MESSAGE SIMPLE PROCEDURE DO_PROCEED;
FORWARD SIMPLE MESSAGE PROCEDURE ARM_POSITION;
FORWARD MESSAGE SIMPLE PROCEDURE STOP_ARM(REAL ARRAY F,V;REFERENCE INTEGER STAT);
FORWARD SIMPLE MESSAGE PROCEDURE ARM_SKIPE(INTEGER ERROR);
FORWARD SIMPLE MESSAGE PROCEDURE ARM_SKIPN(INTEGER ERROR);
FORWARD SIMPLE MESSAGE PROCEDURE ARM_SKIPs(INTEGER ERROR);
FORWARD SIMPLE MESSAGE PROCEDURE ARM_JMP(INTEGER N);
FORWARD SIMPLE MESSAGE PROCEDURE MERGE_ARM;
FORWARD SIMPLE MESSAGE PROCEDURE CENTER_HAND(REAL MINIMUM_DISTANCE);
FORWARD SIMPLE MESSAGE PROCEDURE DRIVE_ARM(INTEGER JOINT;REAL DEGREES;INTEGER TIME;REFERENCE INTEGER FLAG);
FORWARD SIMPLE MESSAGE PROCEDURE ARM_SAVE(INTEGER I);
FORWARD SIMPLE MESSAGE PROCEDURE ARM_RESTORE(INTEGER I);
GLOBAL INTEGER CURVE_STATUS;
GLOBAL INTEGER FLAG_CAM ;
GLOBAL INTEGER COLFILT_ACC;
GLOBAL INTERNAL INTEGER DAC_ACC;
GLOBAL BOOLEAN CHANGE_ACC;
GLOBAL	BOOLEAN SENSCAL_ACC;
GLOBAL	BOOLEAN AUTOCAL_ACC;
GLOBAL INTERNAL INTEGER AUTO_ACC;
GLOBAL	INTEGER SENSIGN_ACC;
GLOBAL INTEGER ARRAY TABLE_ACC[0:63];
GLOBAL INTEGER ARRAY FIL_ACC[0:3];
GLOBAL REAL FCALPOTC_ACC,FCALPOTD_ACC,F_ACC,FNUM_ACC,CIRCONFUS_ACC;
GLOBAL BOOLEAN SENSFLAG_ACC;
GLOBAL BOOLEAN SENDWNFG_ACC;
Global Real Array Itemvar ITVAR_II;
GLOBAL ITEM SOLUTION;
GLOBAL INTEGER STAT_II;
GLOBAL INTEGER ARRAY ARM_STAT[1:10];
GLOBAL SET OLDBLOB;
GLOBAL INTEGER FNAME;
GLOBAL INTERNAL SAFE REAL ARRAY ARM_VECTOR[1:7];
GLOBAL INTERNAL SAFE REAL ARRAY ARM_TORQUE[1:6];
GLOBAL SAFE REAL ARRAY ITEM TEST_BLOCK[1:4,1:4];
GLOBAL INTEGER ARM_PLAN;
GLOBAL SAFE REAL ARRAY FREE_ARM[0:6,1:6];
GLOBAL SAFE REAL ARRAY FORCE_ARM[1:6];